home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / comms / thor_2.22 / thor.lha / rexx / examples / ArcData.br next >
Text File  |  1995-12-18  |  805b  |  43 lines
  1. /*  $VER: ArcData.br 3.1 (08.06.94)
  2.  *
  3.  *  Shows data about archive types.
  4.  *  
  5.  *  Script by: Eivind Nordseth, Ultima Thule Software.
  6.  */
  7.  
  8. /*    trace results */
  9.  
  10.     if ~show('p', 'BBSREAD') then do
  11.         address command
  12.             "run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
  13.             "WaitForPort BBSREAD"
  14.     end
  15.  
  16.     address BBSREAD
  17.  
  18.     parse arg argument
  19.  
  20.     GETARCDATA ARCHIVERS argument
  21.     if(rc ~= 0) then 
  22.     do
  23.         say BBSREAD.LASTERROR
  24.         exit
  25.     end
  26.     
  27.     if(argument = '') then
  28.     do
  29.         do i=1 to ARCHIVERS.COUNT
  30.             say 'Name:     ' ARCHIVERS.i
  31.             say ' Pattern: ' ARCHIVERS.i.PATTERN
  32.             say ' UnArcCmd:' ARCHIVERS.i.UNARCCMD
  33.             say ' ArcCmd:  ' ARCHIVERS.i.ARCCMD
  34.         end
  35.     end
  36.     else
  37.     do 
  38.         say 'Name:    ' ARCHIVERS.NAME
  39.         say 'Pattern: ' ARCHIVERS.PATTERN
  40.         say 'UnArcCmd:' ARCHIVERS.UNARCCMD
  41.         say 'ArcCmd:  ' ARCHIVERS.ARCCMD
  42.     end
  43.